Imports System.Xml
Public Class frmTestData
    Private Sub btnInitXml_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInitXml.Click
        'Dim doc As New XmlDocument
        'doc.Load("TablesFormat")
        'Dim node As XmlNode = doc.DocumentElement
        'Dim tableName As String = "ThietBi_Tram"
        'Dim sql As String
        'sql = "exec sp_columns" + " N'" + tableName + "'"
        'Dim ds As DataSet = MITI.BaseDB.ExecSql_DataSet(sql)
        'For Each dr As DataRow In ds.Tables(0).Rows
        '    Dim newNode As XmlNode
        '    Dim newAttri
        '    node.AppendChild(dr("Column_Name")
        'Next
    End Sub
End Class